www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统SQL正式版/admin/Admin_OrderListSave.asp

    <%@ language="VBScript"%>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
flag="Yes"
set rs=server.createobject("adodb.recordset")
sqltext="select Flag from OrderList where OrderNum='"&request("OrderNum")&"'"
rs.open sqltext,conn,1,1
if rs("Flag")="Yes" then
  rs.close
  Response.Redirect "Admin_OrderListSave.asp?msg=此询价单您已经处理！"
Else
set rs=server.createobject("adodb.recordset")
 sqltext="Update OrderList set Flag='"&flag&"' where OrderNum='"&request("OrderNum")&"'"
 rs.open sqltext,conn,1,3
 response.redirect "Admin_Ordermessagebox.asp?msg=询价单处理处理完毕！"
 rs.close
end if
%>